   1 .
   2 .SLOT MACHINE
   3 .
  10 clear ;BC=2;FC=245;NT=0;CY=24;print "  S L O T   M A C H I N E";box 0,24,160,25,3;CY=-15;print "    0NE 0R TW0 PLAYERS?
  20 K=KN(1)div 128+2;CX=-41;CY=-35;print K;if TR(1)=0goto 20
  30 clear ;&(10)=0;CY=31;print "    $$$     $$$     $$$";CX=-62;CY=12;print "$$$=500 %%%=100 &&&=50
  35 CX=-35;print "@@@=25 ***=10";CX=-47;print "$$-ANY=5 %%-ANY=3";CX=-47;print "&&-ANY=2 @@-ANY=1
  40 box 0,31,149,26,3;box 0,31,145,24,3;box 0,31,143,22,3;box 0,31,139,18,3;for X=-48to 48step 48;box X,31,41,16,3;next X
  50 box -68,-13,2,60,1;box 69,-13,2,60,1;box 0,-42,149,4,1;box 0,0,133,34,3;box 0,-17,133,2,3
  60 H=0;D=50;E=50;BC=8;FC=124;for S=0to 180;&(10)=S;next S
  70 box 0,-29,36,7,2;FC=124;NT=0;if K=2CX=-50;CY=-24;print "PLAYER 1:";CX=-50;CY=-34;print "PLAYER 2:
  80 H=H+1;if K=1if H>1H=1
  85 if K=2if H>2H=1
  90 NT=0;if K=1CX=-11;CY=-29;print "$",#4,D
  95 if K=2CX=25;CY=-24;print "$",#4,D;CX=25;CY=-34;print "$",#4,E
 100 if TR(H)goto 120
 110 goto 100
 120 NT=0;CX=-59;CY=31;print " down down down  ",;CX=-11;print " down down down  ",;CX=37;print " down down down 
 130 for Z=16to 22;&(Z)=75;next Z;for I=1to 30;box 0,31,139,18,3;next I
 140 CX=-59;CY=31;print "    ";CX=-11;CY=31;print "    ";CX=37;CY=31;print "    
 150 if H=1D=D-1
 160 if H=2E=E-1
 170 A=rnd (10);B=rnd (10);C=rnd (10);NT=1;CX=-59;CY=31;if A=1gosub 510
 180 if A=2gosub 520
 190 if A=3gosub 520
 200 if A=4gosub 530
 210 if A=5gosub 530
 220 if A=6gosub 540
 230 if A=7gosub 540
 240 if A=8gosub 540
 245 if A>8gosub 550
 250 A=Z;CX=-11;CY=31;if B=1gosub 510
 260 if B=2gosub 520
 270 if B=3gosub 530
 280 if B=4gosub 530
 290 if B=5gosub 540
 300 if B=6gosub 540
 310 if B=7gosub 540
 315 if B>7gosub 550
 320 B=Z;CX=37;CY=31;if C=1gosub 510
 330 if C=2gosub 520
 340 if C=3gosub 530
 350 if C=4gosub 540
 360 if C=5gosub 540
 370 if C>5gosub 550
 380 C=Z;for O=22to 16step -1;&(O)=0;next O;if A=Bif B=Cgoto 400
 385 if A=Bif B<5gosub 560
 390 goto 80
 400 gosub 610;for V=0to (8-C);&(17)=31;&(19)=37;&(21)=47;&(22)=31
 420 FC=66;for U=30to 20step -1;&(16)=U;next U;FC=171;for U=20to 30;&(16)=U;next U;next V
 430 for Z=22to 16step -1;&(Z)=0;next Z;if C=1P=500
 440 if C=2P=100
 450 if C=3P=50
 460 if C=4P=25
 470 if C=5P=10
 480 if H=1D=D+P
 490 if H=2E=E+P
 500 goto 70
 510 print " $$$";Z=1;return 
 520 print " %%%";Z=2;return 
 530 print " &&&";Z=3;return 
 540 print " @@@";Z=4;return 
 550 print " ***";Z=5;return 
 560 gosub 610;FC=126;NT=1;for M=1to 50;MU=75;next M;if B=1P=5
 570 if B=2P=3
 580 if B=3P=2
 590 if B=4P=1
 600 goto 480
 610 box 0,-29,133,20,2;NT=0;CX=-15;CY=-29;print "WINNER";return 
>:return 
